#name : NA missing data plot simputation
# key : naniar.plot.simputation.missing
# contributor: Shuguang Sun
# --
${1:dt} |>
  naniar::bind_shadow() |>
  as.data.frame() |> 
  simputation::impute_lm(${2:y} ~ ${3:cov} + ${4:x}) |>
  ggplot(aes(x = $4,
             y = $2,
             colour = $2_NA)) + 
  geom_point()